home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / ums / ums109_1.lha / Tools / ReadMessage.LHA / ReadMessage / txt / UMSSupport.mod < prev   
Text File  |  1994-01-29  |  1KB  |  55 lines
  1. (*(***********************************************************************
  2.  
  3. :Program.    UMSSupport.mod
  4. :Contents.   .
  5. :Author.     hartmtut Goebel [hG]
  6. :Address.    Aufseßplatz 5, D-90459 Nürnberg
  7. :Address.    UseNet: hartmut@oberon.nbg.sub.org
  8. :Address.    Z-Netz: hartmut@asn.zer   Fido: 2:246/81.1
  9. :Copyright.  Copyright © 1994 by hartmtut Goebel
  10. :Language.   Oberon-2
  11. :Translator. Amiga Oberon 3.0
  12.  
  13. :Support.    <Hinweis auf von anderen übernomene Programmteile/Ideen>
  14. :Imports.    <Importierte Module außer dem Standardumfang des Compilers>
  15. :Bugs.       <bekannte Fehler>
  16.  
  17. :Update.     <Angaben über Änderungen, die :History. nicht abdeckt>
  18. :Remark.     <beliebiger Kommentar>
  19. :Usage.      <Usage zB. für CLI-Befehl>
  20.  
  21. :Version.    $VER: UMSSupport.mod 0.0 () Copyright © 1994 by hartmtut Goebel
  22.  
  23. (* $StackChk- $NilChk- $RangeChk- $CaseChk- $OvflChk- $ReturnChk- $ClearVars- *)
  24. (****i* /--history-- ***************************************
  25. *
  26. *********************************************************************)*)*)
  27.  
  28. MODULE UMSSupport;
  29.  
  30. IMPORT
  31.   d := Dos,
  32.   ums;
  33.  
  34. CONST
  35.   versionString = "$VER: UMSSupport 0.0 () Copyright © 1994 by hartmtut Goebel";
  36.  
  37. TYPE
  38.   Account *= LONGINT;
  39.  
  40. PROCEDURE CheckErr * (account: Account);
  41. VAR
  42.   err: INTEGER;
  43.   txt: ums.STRPTR;
  44. BEGIN
  45.   err := ums.ErrNum (account);
  46.   IF err # ums.ok THEN
  47.     txt := ums.ErrTxt (account);
  48.     d.PrintF ("UMS-error: %ld, \"%s\"\n", err, ums.ErrTxt (account));
  49.     HALT (20);
  50.   END;
  51. END CheckErr;
  52.  
  53. END UMSSupport.
  54.  
  55.